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-- Resident. Mesa; edited by Sandman on Jul 25, 1978 8:41 AM 

DIRECTORY 

AHocDefs: FROM "allocdefs" USING [Alloclnfo, MakeSwappedIn], 

AUoDefs: FROM "altodefs" USING [PageSize], 

BootDefs: FROM "bootdefs", 

ControlDefs: FROM "controldef s" USING [ 

ATPreg, AV, AVItem, ControlLink, EntryVectorltem, EPRange, FrameHandle, 
FrameVec, Free, GetReturnLink, GFT, GFTIndex, GFTItem, Global FrameHandle, 
LargeReturnSlot , Lreg, MainBodylndex , MaxAllocSlot, NullFrame, 
NullGlobalFrame, OTPreg, Port, ProcDesc, SD, SetReturnFrame, 
SetReturnLink, Special ReturnSlot, StateVector, WDCreg, XTPreg, XTSreg], 

CoreSwapDefs: FROM "coreswapdef s" USING [ 
ExternalStateVector, Puntlnfo, SVPointer], 

FrameDefs: FROM "framedefs", 

ImageDefs: FROM "imagedefs" USING [AbortMesa, PuntMesa], 

InlineDefs: FROM "inlinedefs" USING [BITAND, BITOR], 

KeyDefs: FROM "keydefs" USING [Keys], 

Mopcodes: FROM "mopcodes" USING [zKFCB, zPOP, zSTARTIO], 

NovaOps: FROM "novaops" USING [NovalnLd, NovaOutLd], 

NucleusDefs: FROM "nucleusdef s" , 

ProcessDefs: FROM "processdef s" USING [ 

ActiveWord, CV, Disablelnterrupts , DisableTimeout , Enablelnterrupts , 
Enter, Fork, GetPriority, ParityLevel, Priority, ReEnter, SetPriority, 
Wait, WakeupsWaiting] , 

SDDefs: FROM "sddefs" USING [ 

sAllocTrap, SD, sinterrupt, sIOResetBi ts , sProcessBreakpoint , sXferTrap], 

SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DataSegmentAddress , DataSegmentHandle, DefaultBase, 
DeleteDataSegmen t, FileSegmentHandle, NewFrameSegment, Unlock], 

TrapDefs: FROM "trapdefs" USING [ 

TraceNext, TraceOff, TrapParameter, TrapStatus]; 

DEFINITIONS FROM AltoDefs, ControlDefs; 

Resident: PROGRAM 

IMPORTS AllocDefs, ProcessDefs, SegmentDefs 
EXPORTS BootDefs, FrameDefs, NucleusDefs, TrapDefs 
SHARES ProcessDefs = 

BEGIN 

-- allocation of frame space 

LargeFrameSlot: CARDINAL « 12; 

FrameSize: PUBLIC PROCEDURE [fsi: CARDINAL] RETURNS [CARDINAL] » 
BEGIN 

RETURN[IF fsi >» LENGTH[FrameVec] THEN fsi ELSE FrameVec[f si]] 
END; 

pgft: TYPE = POINTER TO ARRAY [0..0) OF GFTItem; 

ItemPointer: TYPE == POINTER TO ControlDefs. AVItem; 

FrameSegment: TYPE = MACHINE DEPENDENT RECORD [ 
segment: SegmentDefs, DataSegmentHandle. 
link: POINTER TO FrameSegment, 
size, fsi: CARDINAL]; 

-- maintain a list of all new "permanent" frame segments; 
SegHeader: PUBLIC TYPE - RECORD [ 

seg: SegmentDefs .DataSegmentHandle, link: pSegHeader]; 
pSegHeader: PUBLIC TYPE = POINTER TO SegHeader; 
SegListHead: PUBLIC pSegHeader <- NIL; 

ExtraSpaceSize: CARDINAL = PageSize; 

ExtraSpace: ARRAY [0 . .ExtraSpaceSize) OF WORD; 

InitNewSpace: POINTER = LOOPHOLE[Inl ineDef s .BIT0R[L0OPHOLE[BASE[ExtraSpace]] ,3]] ; 

InitWordsLeft: CARDINAL « BASE[ExtraSpace]+ExtraSpaceSize-Ini tNewSpace; 

NULLPtr: FrameHandle « LOOPHOLE[0]; 

AllocTrap: PROCEDURE [otherf rame: FrameHandle] 
RETURNS [my frame: FrameHandle] « 
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BEGIN OPEN ProcessDefs, SegmentDefs; 

ATFranie: TYPE = POINTER TO FRAME [AllocTrap]; 

state: StateVector; 

newFrame: FrameHandle; 

newseg: DataSegmentHandle; 

eventry: POINTER TO EntryVectorltem; 

i, fsize, f index: CARDINAL; 

p: POINTER; 

newG: GlobalFrameHandle; 

NewSpacePtr: POINTER; 

WordsLeft: CARDINAL <- 0; 

recurring: BOOLEAN <- otherframe « NULLPtr; 

alloc: BOOLEAN; 

dest, tempdest: ControlLink; 

gfi: GFTIndex; 

ep: CARDINAL; 

myframe <- REGISTER[Lreg]; 

state. dest <- myframe. return! ink; state. source ♦- 0; 

state. instbyte<-0; 

state. stk[0] <- myframe; 

state. stkptr <- 1; 

ProcessDefs .Disablelnterrupts[] ; -- so that undo below works 

DO ENABLE ANY => ImageDef s . PuntMesa[] ; 

IF -recurring THEN 
BEGIN 

LOOPHOLE[otherf rame, ATFrame] .NewSpacePtr <- InitNewSpace; 
LOOPHOLE[otherframe, ATFrame] .WordsLeft <- Ini tWordsLef t ; 
AV[Specia1ReturnSlot] ^ [data[0 .empty]]; 
END; 

ProcessDefs .Enab1elnterrupts[] ; -- guarantees one more instruction 
TRANSFER WITH state; 
ProcessDefs. Disab1elnterrupts[]; 

state *■ STATE; 

dest ^ L0OPH0LE[REGISTER[ATPreg]]; 

SD[SDDefs.sA11ocTrap] ♦- otherframe; 
myframe. return! ink ♦- state, source; 

tempdest <- dest; 
DO 

SELECT tempdest. tag FROM 
frame =»> 

BEGIN 

al!oc <r TRUE; 

findex *- LOOPHOLE[tempdest, CARDINAL]/4; 

EXIT 

END; 
procedure => 

BEGIN OPEN proc: LOOPHOLE[tempdest, ProcDesc]; 

gfi <- proc. gfi; ep ♦- proc.ep; 

[frame: newG, epbase: findex] *- GFT[gfi]; 

eventry <- @newG.code.pref ix .entry[f index+ep]; 

findex ♦- eventry .framesize; 

a!loc ^ FALSE; 

EXIT 

END; 
indirect => tempdest *- tempdest. ! inkt; 
ENDCASE => ImageDefs.PuntMesa[]; 
ENDLOOP; 

IF -recurring THEN FlushLargeFrames[] 
ELSE 

IF (p ♦- AV[Specia!ReturnS!ot].!ink) ff LOOPHOLE[AVItem[data[0, empty]]] THEN 

BEGIN 

WordsLeft <- WordsLeft + (NewSpacePtr-p+1) ; 

NewSpacePtr «- p-1; 

AV[SpecialReturnS!ot] ^ [data[0, empty]]; 

END; 

IF findex < LargeFrameSlot THEN 
BEGIN 
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fsize <- FrameVec[f index]+l; -- includes overhead word 
THROUGH [0..1] DO 
p ^ NewSpacePtr+l; 
IF fsize <- WordsLeft THEN 
BEGIN 

newframe <- p; 

(p-l)t f- IF recurring THEN SpecialReturnSlot ELSE findex; 
WordsLeft <- WordsLeft - fsize; 
NewSpacePtr ^ NewSpacePtr + fsize; 
EXIT; 
END 
ELSE 
BEGIN 

IF recurring THEN ImageDef s . PuntMesa[] ; 
FOR i DECREASING IN [0.. findex) DO 
IF FrameVec[i] < WordsLeft THEN 
BEGIN 

(p-l)t 4- i; 
pt 4- AV[i].link; 
AV[i].1ink ♦- p; 
EXIT; 
END; 
ENDLOOP; 
NewSpacePtr <- 

(p*-DataSegmentAddress[newseg4-NewFrameSegment[l]3) + 3; 
LOOPHOLE[p,pSegHeader]t <- [newseg.SegListHead]; 
SegListHead ^ p; 
WordsLeft <- PageSize-3; 
END; 
ENDLOOP 
END 
ELSE 
BEGIN 

fsize 4- SELECT findex FROM 
> MaxAllocSlot => findex, 
= MaxAllocSlot «> 

(newG.code.codebase + CARDINAL[eventry . initialpc] - l)t, 
ENDCASE => FrameVec[f index]; 
p 4- DataSegmentAddress[newseg ♦- 
NewFrameSegment[(f size + PageSize + 3)/PageSize]]; 
pt 4- newseg; 
(p+2)t ♦- fsize; 
(p+3)t *- LargeReturnSlot; 
newframe <- p + 4; 
END; 

IF alloc THEN 
BEGIN 

state. dest <- myframe. return! ink; 
state . stk[state. stkptr] *~ newframe; 
state. stkptr <- state. stkptr+1; 
END 
ELSE 
BEGIN 
IF dest. tag # indirect THEN 

BEGIN 

state. dest <- newframe; 

newframe. accessl ink <- newG; 

newframe. pc <- eventry. initialpc; 

newframe. return! ink <- myframe. returnlink; 

END 
ELSE 

BEGIN 

IF findex = MaxAllocSlot THEN ImageDef s . PuntMesa[]; 

state. dest <- dest; 

newframe. accessl ink <- LOOPHOLE[AV[f index].! ink]; 

AV[f index]. frame <- newframe; 

END; 
state. source «- myframe. return! ink; 
END; 



SD[SDDefs.sAllocTrap] *- myframe; 

ENDLOOP; 
END; 



Resident. mesa 



2-Sep-78 13:58:17 



Page 



FlushLargeFrames: PUBLIC PROCEDURE - 
BEGIN 

p: POINTER; 

item: ItemPointer ^ @A\/[LargeReturnS1ot]; 
WHILE item. tag « frame DO 

p *- item. frame; item. frame <- pt; 

SegmentDefs.DeleteDataSegment[L00PH0LE[(p-4)t]]; 

ENDLOOP; 
END; 

-- other traps 

UnboundProcedure: PUBLIC SIGNAL [dest: ControlLink] RETURNS [ControlLink] » CODE; 

UnboundProcedureTrap: PROCEDURE ■ 
BEGIN 

dest: ControlLink; 
state: StateVector; 
ProcessDef s.DisableInterrupts[]; 
state ^ STATE* 

dest <- LOOPHOLE[REGISTER[OTPreg]]; 
ProcessDefs.Enab1eInterrupts[]; 
state, source <- GetReturnLink[] ; 
state. dest <- SIGNAL UnboundProcedure[dest]; 
RETURN WITH state 
END; 

StartFauU: PUBLIC SIGNAL [dest: Global FrameHandle] = CODE; 

Codelnconsistency: PUBLIC SIGNAL [frame: Global FrameHandle] = CODE; 

Start: PUBLIC PROCEDURE [dest: Global FrameHandle] « 
BEGIN 

state: StateVector; 
control: GlobalFrameHandle; 
state *- STATE; 
IF dest = NullGlobalFrame OR dest. started THEN 

ERROR StartFault[dest]; 
IF (control ^ dest . global [0]) # NullGlobalFrame 

AND -control .started THEN Start[control] ; 
--SwapInCode[dest]; 

--IF dest. code. prefix. fill = 1 THEN SIGNAL CodeInconsistency[dest] ; 
--SegmentDefs. Unlock [dest .code segment]; 
IF -dest. started THEN 

BEGIN 

state. dest <- ControlLink[procedure[ 

gfi: dest.gfi, ep: MainBodylndex, tag: procedure]]; 

state. source <- GetReturnLink[]; 

dest. started ^ TRUE; 

RETURN WITH State 

END 
ELSE IF state. stkptr ff THEN SIGNAL StartFaul t[dest]; 
RETURN 
END; 

Restart: PUBLIC PROCEDURE [dest: GlobalFrameHandle] « 
BEGIN 

stops: BOOLEAN; 
frame: FrameHandle; 

IF dest = NullGlobalFrame THEN ERROR StartFault[dest]; 
IF -dest. started THEN Start[dest]; 
SwapInCode[dest] ; 
stops <- dest.code.prefix. stops ; 
SegmentDefs . Un lock [dest. codes egment] ; 
IF -stops THEN ERROR StartFaul t[dest] ; 
IF (frame ^ dest.global[0]) # NullFrame THEN 

BEGIN 

frame, returnl ink <- GetReturnLink[]; 

SetReturnFrame[frame]; 

END; 
RETURN 
END; 



CodeTrap: PROCEDURE » 
BEGIN 
dest: ControlLink; 
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state: StateVector; 

frame: Global FrameHandle; 

ProcessDefs.Disab1eInterrupts[]; 

state <r STATE; 

dest <- LOOPHOL[:[REGISTER[OTPreg]]; 

Process Defs.Enab1eInterrupts[]; 

state. dest <- dest; 

state. source ^ GetReturnLink[] ; 

DO 

SELECT dest. tag FROM 

frame »> BEGIN frame <- dest .frame, access! ink; EXIT END; 

procedure => BEGIN frame *- GFT[dest. gfi] .frame; EXIT END; 

ENDCASE «> dest ^ dest.linkt; 
ENDLOOP; 
IF -frame. started THEN Start[f name]; 
SwapInCode[f rame]; 

SegmentDefs.Unlock[ frame. CO desegment]; 
RETURN WITH state; 
END; 

SwapInCode: PUBLIC PROCEDURE [f: Global FrameHandle] - 
BEGIN OPEN SegmentDefs; 
seg: FileSegmentHandle; 

-- It is believed that Disabling during Swapin is unnecessary 
-- as long as ALL interrupt code is locked. The 
-- Swapper should have segment locks to help fix this. 

info: AllocDefs.AllocInfo = [0 .easy , bottomup , initial, code, FALSE, FALSE]; 
Al locDef s .MakeSwappedIn[(seg ♦- f . codesegment) , DefaultBase, info]; 
Process Defs.Disablelnterr up ts[]; 
IF f .code.swappedout THEN 

BEGIN 

-- Don't call FileSegmentAddress; it's not lockedl 

f .code.codebase *- AddressFromPage[seg.VMpage]^-f. code. off set; 

f .code, swappedout <- FALSE; 

END; 
ProcessDef s. Enable In terrupts[]; 
RETURN 
END; 

-- Parity Errors 

ParityError: PUBLIC SIGNAL [address: POINTER] = CODE; 
PhantomParityError: PUBLIC SIGNAL = CODE; 

ParityProcess: PROCEDURE » 
BEGIN OPEN ProcessDefs; 
p: ORDERED POINTER; 
dummy: MONITORLOCK; 
error: CONDITION; 

ww: POINTER TO MACHINE DEPENDENT RECORD [ 
other: [0..77777B], parity: BOOLEAN] <- 
LOOPHOLE[ ProcessDef s.WakeupsWai ting]; 
POP: PROCEDURE [WORD] = MACHINE CODE BEGIN Mopcodes . zPOP END; 
[] ♦- Enter[ ©dummy]; 
DisableTimeout[@error]; 
CV[ParityLevel] ♦- 0error; 
DO -- forever 

Wait[6dummy, ©error, error . timeout] ; 
WHILE ~ReEnter[@dummy. ©error] DO NULL ENDLOOP; 
ActiveWordt «- 0; 

FOR p DECREASING IN [LOOPHOLE[0] . . LOOPHOLE[177000B]) DO 
POP[pt]; 
IF WW. parity THEN 

BEGIN SIGNAL Par ityError[p] ; EXIT END; 
REPEAT FINISHED => SIGNAL PhantomParityError; 
ENDLOOP; 
WW. parity <- FALSE; 
ActiveWordt f- 77777B; 
ENDLOOP; 
END; 

InitParity: PROCEDURE « 
BEGIN OPEN ProcessDefs; 
save: Priority <~ GetPriority[]; 
SetPriority[LAST[Pr jority]]; 
[] ♦- Fork[ParityProcess]; 
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SetPriority[save]; 

RETURN 

END; 

-- Getting the Debugger 

level: INTEGER; 

StartIO: PROCEDURE [CARDINAL] = MACHINE CODE BEGIN Mopcodes .zSTARTIO END; 

CSPort: PORT RETURNS [POINTER TO CoreSwapDef s . ExternalStateVector] ; 
WBPort: PORT [POINTER TO CoreSwapDef s . ExternalStateVector] ; 

MemorySwap: PROCEDURE [ESV: POINTER TO CoreSwapDef s . ExternalStateVector] » 
BEGIN 

savewdc: UNSPECIFIED; 
xferTrapStatus: UNSPECIFIED; 
xferTrapHandler: UNSPECIFIED; 
flag: [0.,2]; 
DO 

ESV <- CSPort[]; 

SetReturnLink[LOOPHOLE[CSPort, Port].dest]; 

StartIO[SD[SDDefs.sIOResetBits]]; -- reset 10 devices 

ESV. level <- level ; 

XferTrapStatus <- REGISrER[XTSreg] ; 

XferTrapHandler <- SD[SDDef s .sXferTrap] ; 

SD[SDDefs.sXferTrap] *- REGISTER[Lreg] ; 

REGISTER[XTSreg] ^ TrapDef s . TraceOf f ; 

savewdc <~ REGISTER[WDCreg] ; 

flag <- No vaOp s. Nov aOutLd[OutLd, CoreSwapDef s. Punt I nfot.pCoreFP. ESV]; 

REGISTER[WDCreg] ^ savewdc; 

SELECT flag FROM 

=> NovaOps,NovaInLd[InLd, CoreSwapDef s. Punt I nfot.pDebuggerFP. ESV]; 

1 => level ♦- ESV. level; 
ENDCASE => ESV. reason <- proceed; 

REGISTER[XTSreg] ^ xferTrapStatus; 
SD[SDDefs,sXferTrap] ^ xferTrapHandler; 
ENDLOOP; 
END; 

Break: PROCEDURE « 

-- executed by (non-worry) BRK instruction 

BEGIN 

ProcessBreakpoint: PROCEDURE [CoreSwapDef s .SVPointer] =« 

MACHINE CODE BEGIN Mopcodes .zKFCB, SDDef s . sProcessBreakpoint END; 
f: FrameHandle; 
state: StateVector; 
XferTrapStatus: TrapDef s.TrapStatus; 
state *- STATE; 

state. dest <- f <- state. source; 
state. source ^ REGISTER[Lreg]; 
f.pc <- [IF f.pc < THEN -f.pc ELSE (1-f.pc)]; 
XferTrapStatus <- REGISTER[XTSreg]; 
ProcessBreakpoint[@state]; 

IF XferTrapStatus. state = on THEN REGISTER[XTSreg] <- TrapDef s . TraceNext; 
RETURN WITH state 
END; 

-- Worry mode breakpoints 

WorryBreaker: PROCEDURE RETURNS [FrameHandle] « 
BEGIN 

worrystate: StateVector; 
worryframe: FrameHandle; 

worry ESV: CoreSwapDef s .ExternalStateVector ; 
XferTrapStatus: TrapDef s . TrapStatus; 

worrystate. instbyte <- 0; 

worrystate. stkptr ^ 1; 

worrystate. stk[0] ^ RE6ISTER[Lreg] ; 

worrystate, dest ^ ControlDefs,GetReturnLink[]; 

ProcessDef s .Disablelnterrupts[]; 

DO 

XferTrapStatus *- REGISTER[XTSreg]; 

IF XferTrapStatus. state « on THEN REGISTER[XTSreg] <- TrapDef s, TraceNext ; 

ProcessDef s.EnableInterrupts[]; 

TRANSFER WITH worrystate; 
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ProcessDefs.Disab1eInterrupts[]; 

worrystate ^ STATE; 

worrystate.dest <- worryframe *- worrystate. source; 

worrystate, source ^ REGIST€B[Lreg]; 

worryf rame.pc ♦- 

[IF worryf rame.pc < THEH -worryf name . pc ELSE (1-worryf rame.pc)] ; 
worryESV <- CoreSwapDef s.Pu«tInfot. puntESV; 
worryESV. state ♦- ©worrystate; 
worryESV. reason <- worrybr>eak; 
DO 

WBPort[@worryESV]; 
SELECT worryESV. reason FROM 
proceed ■> EXIT; 
kin "> ImageDefs.AbortMesa[]; 
showscreen "> 

UNTIL KeyDefs. Keys. Spares « down DO NULL ENDLOOP; 
ENDCASE; 
worryESV. reason ^ return; 
ENDLOOP; 
ENDLOOP; 
END; 

continueTracing: BOOLEAN; 

Notify: PROCEDURE = MACHINE CODE BEGIN Mopcodes . zKFCB , SDDef s . sinterrupt END; 

StartTrace: PROCEDURE [ 

loc: POINTER, val : UNSPECIFIED, mask: WORD, equal: BOOLEAN] « 

BEGIN OPEN TrapDefs, ControlOefs; 

state: StateVector; 

trapParam: TrapParameter ; 

status: TrapStatus; 

frame: FrameHandle; 

ep: CARDINAL; 

Ival: UNSPECIFIED; 

continueTracing <- TRUE; 

state *- STATE; 

state. dest <- GetReturnLink[]; 

SDDefs.SD[SDDefs.sXferTrap] ^ state. source ♦- REGISTER[Lreg]; 

ProcessDef s.DisableInterrupts[]; 

DO 

Ival <r- ln1ineDefs.BITAND[loct, mask]; 

IF (IF equal THEN val = Ival ELSE val # Ival) THEN Notify[]; 
IF ^-continueTracing THEN 
BEGIN 

ProcessDef s. Enable Inter rupts[]; 
RETURN WITH state; 
END 
ELSE 
BEGIN 

REGISTER[XTSreg] <- TraceNext; 
ProcessDef s .Enable In terrupts[] ; 
TRANSFER WITH state; 
END; 
ProcessDef s. Disable Inter rupts[]; 
state *- STATE; 

trapParam ^ REGISTER[XTPreg]; 
status ♦- REGISTER[XTSreg]; 
REGISTER[XTSreg] ^ TraceOff; 
SELECT status. reason FROM 
other => SetReturnLink[ 

IF state, source = NullFrame THEN trapParam. 1 ink ELSE state. source]; 
localCall => 
BEGIN 

ep <- (trapParam. ep-'2)/2 ; 
frame ^ state. source; 
trapParam. link <- ControlLink[procedure[tag: procedure, 

gfi: frame. accessl ink .gfi+ep/EPRange , ep: ep MOD EPRange]]; 
SetReturnFrame[f rame]; 
END; 
return «> 
BEGIN 

frame ♦- trapParam, frame-6; 
trapParam. 1 ink ^ Frame. return! ink; 
SetReturnFrame[frame]; 
END; 



Resident. mesa 2-Sep-78 13:68:17 Page 8 



ENDCASE; 
state. dest <- trapParam. link; 
IF status .reason ■ return THEN 

BEGIN Free[f rame]; state. source ♦- NullFrame; END; 
ENDLOOP; 
END; 

StopTrace: PROCEDURE - 
BEGIN 

continueTracing ^ FALSE; 
RETURN 
END; 



-- Main Body; 

STOP; 
InitParity[]; 



END. 



